home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Beat Keeper (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  598b  |  21 lines
  1. 0 poke 53280,11:poke 53281,11
  2. 1 rem commodares problem #29-3:
  3. 2 rem     beat keeper
  4. 3 rem solution by
  5. 4 rem   bill okerblom
  6. 5 rem
  7. 7 s=54272:pokes+24,15:pokes+5,0:pokes+6,5:pokes+1,25:d$=""
  8. 8 a$=d$+"[205][205][205][205][205][205][205][215][145] [145] [145] [145] [145] [145] [145] "
  9. 9 b$=d$+"       [215][145][206][145][206][145][206][145][206][145][206][145][206][145][206]"
  10. 10 g$=" (-)slower  (0)same  (+)faster  (e)end":c$=" beats per minute: "
  11. 11 input"[147] beats per minute ";bm
  12. 12 x$=a$:gosub13:x$=b$:gosub13:goto12
  13. 13 ti$="000000":printg$:printc$;"    [157][157][157][157]";bm:printtab(12)x$
  14. 14 pokes+4,129:pokes+4,130
  15. 15 if ti/60 < 60/bm then 15
  16. 16 gete$:ife$<>""thenf$=e$
  17. 17 iff$="+"then bm=bm+1:return
  18. 18 iff$="-"then bm=bm-1:return
  19. 19 iff$="e"then print"[147]":end
  20. 20 return
  21.